home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / DriverGestalt.p < prev    next >
Encoding:
Text File  |  1997-08-12  |  17.9 KB  |  447 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        DriverGestalt.p
  3.  
  4.      Contains:    Driver Gestalt interfaces
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Release:    Universal Interfaces 3.0.1
  8.  
  9.      Copyright:    © 1995-1997 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT DriverGestalt;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __DRIVERGESTALT__}
  28. {$SETC __DRIVERGESTALT__ := 1}
  29.  
  30. {$I+}
  31. {$SETC DriverGestaltIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __OSUTILS__}
  38. {$I OSUtils.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __SCSI__}
  41. {$I SCSI.p}
  42. {$ENDC}
  43.  
  44.  
  45. {$PUSH}
  46. {$ALIGN MAC68K}
  47. {$LibExport+}
  48.  
  49. {__________________________________________________________________________________}
  50. { The Driver Gestalt bit in the dCtlFlags }
  51.  
  52. CONST
  53.     kbDriverGestaltEnable        = 2;
  54.     kmDriverGestaltEnableMask    = $04;
  55.  
  56. {__________________________________________________________________________________}
  57. { Driver Gestalt related csCodes }
  58.     kDriverGestaltCode            = 43;                            {  various uses  }
  59.     kDriverConfigureCode        = 43;                            {  various uses  }
  60.     kdgLowPowerMode                = 70;                            {  Sets/Returns the current energy consumption level  }
  61.     kdgReturnDeviceID            = 120;                            {  returns SCSI DevID in csParam[0]  }
  62.     kdgGetCDDeviceInfo            = 121;                            {  returns CDDeviceCharacteristics in csParam[0]  }
  63.  
  64. {__________________________________________________________________________________}
  65. { Driver Gestalt selectors }
  66.     kdgVersion                    = 'vers';                        {  Version number of the driver in standard Apple format  }
  67.     kdgDeviceType                = 'devt';                        {  The type of device the driver is driving.  }
  68.     kdgInterface                = 'intf';                        {  The underlying interface that the driver is using (if any)  }
  69.     kdgSync                        = 'sync';                        {  True if driver only behaves synchronously.  }
  70.     kdgBoot                        = 'boot';                        {  value to place in PRAM for this drive (long)  }
  71.     kdgWide                        = 'wide';                        {  True if driver supports ioWPosOffset  }
  72.     kdgPurge                    = 'purg';                        {  Driver purge permission (True = purge; False = no purge)  }
  73.     kdgSupportsSwitching        = 'lpwr';                        {  True if driver supports power switching  }
  74.     kdgMin3VPower                = 'pmn3';                        {  Minimum 3.3V power consumption in microWatts  }
  75.     kdgMin5VPower                = 'pmn5';                        {  Minimum 5V power consumption in microWatts  }
  76.     kdgMax3VPower                = 'pmx3';                        {  Maximum 3.3V power consumption in microWatts  }
  77.     kdgMax5VPower                = 'pmx5';                        {  Maximum 5V power consumption in microWatts  }
  78.     kdgInHighPower                = 'psta';                        {  True if device is currently in high power mode  }
  79.     kdgSupportsPowerCtl            = 'psup';                        {  True if driver supports following five calls  }
  80.     kdgAPI                        = 'dAPI';                        {  API support for PC Exchange  }
  81.     kdgEject                    = 'ejec';                        {  Eject options for shutdown/restart (Shutdown Mgr)  }
  82.     kdgFlush                    = 'flus';                        {  Determine if disk driver supports flush and if it needs a flush  }
  83.     kdgVMOptions                = 'vmop';                        {  Disk drive's Virtual Memory options  }
  84.     kdgPhysDriveIconSuite        = 'dics';                        {  [call sync only] icon suite for Disk Driver physical drive (formerly in csCode 22)  }
  85.     kdgMediaIconSuite            = 'mics';                        {  [call sync only] icon suite for Disk Driver media (formerly in csCode 21)  }
  86.     kdgMediaName                = 'mnam';                        {  pascal string describing the Disk Driver (formerly in csCode 21)  }
  87.  
  88. {__________________________________________________________________________________}
  89. { Driver Configure selectors }
  90.     kdcFlush                    = 'flus';                        {  Tell a disk driver to flush its cache and any hardware caches  }
  91.  
  92. {__________________________________________________________________________________}
  93. { control parameter block for Driver Configure calls }
  94.  
  95. TYPE
  96.     DriverConfigParamPtr = ^DriverConfigParam;
  97.     DriverConfigParam = RECORD
  98.         qLink:                    QElemPtr;
  99.         qType:                    INTEGER;
  100.         ioTrap:                    INTEGER;
  101.         ioCmdAddr:                Ptr;
  102.         ioCompletion:            ProcPtr;
  103.         ioResult:                OSErr;
  104.         ioNamePtr:                StringPtr;
  105.         ioVRefNum:                INTEGER;
  106.         ioCRefNum:                INTEGER;                                {  refNum for I/O operation  }
  107.         csCode:                    INTEGER;                                {  == kDriverConfigureCode  }
  108.         driverConfigureSelector: OSType;
  109.         driverConfigureParameter: UInt32;
  110.     END;
  111.  
  112. {__________________________________________________________________________________}
  113. { status parameter block for Driver Gestalt calls }
  114.     DriverGestaltParamPtr = ^DriverGestaltParam;
  115.     DriverGestaltParam = RECORD
  116.         qLink:                    QElemPtr;
  117.         qType:                    INTEGER;
  118.         ioTrap:                    INTEGER;
  119.         ioCmdAddr:                Ptr;
  120.         ioCompletion:            ProcPtr;
  121.         ioResult:                OSErr;
  122.         ioNamePtr:                StringPtr;
  123.         ioVRefNum:                INTEGER;
  124.         ioCRefNum:                INTEGER;                                {  refNum for I/O operation  }
  125.         csCode:                    INTEGER;                                {     == kDriverGestaltCode  }
  126.         driverGestaltSelector:    OSType;                                    {  'sync', 'vers', etc.  }
  127.         driverGestaltResponse:    UInt32;                                    {  Could be a pointer, bit field or other format  }
  128.         driverGestaltResponse1:    UInt32;                                    {  Could be a pointer, bit field or other format  }
  129.         driverGestaltResponse2:    UInt32;                                    {  Could be a pointer, bit field or other format  }
  130.         driverGestaltResponse3:    UInt32;                                    {  Could be a pointer, bit field or other format  }
  131.         driverGestaltfiller:    UInt16;                                    {  To pad out to the size of a controlPB  }
  132.     END;
  133.  
  134. { Note that the various response definitions are overlays of the response fields above.
  135.    For instance the deviceType response would be returned in driverGestaltResponse.
  136.    The DriverGestaltPurgeResponse would be in driverGestaltResponse and driverGestaltResponse1
  137. }
  138. {__________________________________________________________________________________}
  139. { Device Types response }
  140.     DriverGestaltDevTResponsePtr = ^DriverGestaltDevTResponse;
  141.     DriverGestaltDevTResponse = RECORD
  142.         deviceType:                OSType;
  143.     END;
  144.  
  145.  
  146. CONST
  147.     kdgDiskType                    = 'disk';                        {  standard r/w disk drive  }
  148.     kdgTapeType                    = 'tape';                        {  tape drive  }
  149.     kdgPrinterType                = 'prnt';                        {  printer  }
  150.     kdgProcessorType            = 'proc';                        {  processor  }
  151.     kdgWormType                    = 'worm';                        {  write-once  }
  152.     kdgCDType                    = 'cdrm';                        {  cd-rom drive  }
  153.     kdgFloppyType                = 'flop';                        {  floppy disk drive  }
  154.     kdgScannerType                = 'scan';                        {  scanner  }
  155.     kdgFileType                    = 'file';                        {  Logical Partition type based on a file (Drive Container)  }
  156.     kdgRemovableType            = 'rdsk';                        {  A removable media hard disk drive ie. Syquest, Bernioulli  }
  157.  
  158. {__________________________________________________________________________________}
  159. { Device Interfaces response }
  160.  
  161. TYPE
  162.     DriverGestaltIntfResponsePtr = ^DriverGestaltIntfResponse;
  163.     DriverGestaltIntfResponse = RECORD
  164.         interfaceType:            OSType;
  165.     END;
  166.  
  167.  
  168. CONST
  169.     kdgScsiIntf                    = 'scsi';
  170.     kdgPcmciaIntf                = 'pcmc';
  171.     kdgATAIntf                    = 'ata ';
  172.     kdgFireWireIntf                = 'fire';
  173.     kdgExtBus                    = 'card';
  174.  
  175. {__________________________________________________________________________________}
  176. { Power Saving }
  177.  
  178. TYPE
  179.     DriverGestaltPowerResponsePtr = ^DriverGestaltPowerResponse;
  180.     DriverGestaltPowerResponse = RECORD
  181.         powerValue:                LONGINT;                                {  Power consumed in µWatts  }
  182.     END;
  183.  
  184. {__________________________________________________________________________________}
  185. { Disk Specific }
  186.     DriverGestaltSyncResponsePtr = ^DriverGestaltSyncResponse;
  187.     DriverGestaltSyncResponse = RECORD
  188.         behavesSynchronously:    BOOLEAN;
  189.         pad:                    PACKED ARRAY [0..2] OF UInt8;
  190.     END;
  191.  
  192.     DriverGestaltBootResponsePtr = ^DriverGestaltBootResponse;
  193.     DriverGestaltBootResponse = RECORD
  194.         extDev:                    SInt8;                                    {   Packed target (upper 5 bits) LUN (lower 3 bits)  }
  195.         partition:                SInt8;                                    {   Unused  }
  196.         SIMSlot:                SInt8;                                    {   Slot  }
  197.         SIMsRSRC:                SInt8;                                    {   sRsrcID  }
  198.     END;
  199.  
  200.     DriverGestaltAPIResponsePtr = ^DriverGestaltAPIResponse;
  201.     DriverGestaltAPIResponse = RECORD
  202.         partitionCmds:            INTEGER;                                {  if bit 0 is nonzero, supports partition control and status calls  }
  203.                                                                         {          prohibitMounting (control, kProhibitMounting)  }
  204.                                                                         {          partitionToVRef (status, kGetPartitionStatus)  }
  205.                                                                         {          getPartitionInfo (status, kGetPartInfo)  }
  206.         unused1:                INTEGER;                                {  all the unused fields should be zero  }
  207.         unused2:                INTEGER;
  208.         unused3:                INTEGER;
  209.         unused4:                INTEGER;
  210.         unused5:                INTEGER;
  211.         unused6:                INTEGER;
  212.         unused7:                INTEGER;
  213.         unused8:                INTEGER;
  214.         unused9:                INTEGER;
  215.         unused10:                INTEGER;
  216.     END;
  217.  
  218.     DriverGestaltFlushResponsePtr = ^DriverGestaltFlushResponse;
  219.     DriverGestaltFlushResponse = RECORD
  220.         canFlush:                BOOLEAN;                                {  Return true if driver supports the  }
  221.                                                                         {  kdcFlush Driver Configure _Control call  }
  222.         needsFlush:                BOOLEAN;                                {  Return true if driver/device has data cached  }
  223.                                                                         {  and needs to be flushed when the disk volume  }
  224.                                                                         {  is flushed by the File Manager  }
  225.         pad:                    PACKED ARRAY [0..1] OF UInt8;
  226.     END;
  227.  
  228. { Flags for purge permissions }
  229.  
  230. CONST
  231.     kbCloseOk                    = 0;                            {  Ok to call Close  }
  232.     kbRemoveOk                    = 1;                            {  Ok to call RemoveDrvr  }
  233.     kbPurgeOk                    = 2;                            {  Ok to call DisposePtr  }
  234.     kmNoCloseNoPurge            = 0;
  235.     kmOkCloseNoPurge            = $03;
  236.     kmOkCloseOkPurge            = $07;
  237.  
  238. { Driver purge permission structure }
  239.  
  240. TYPE
  241.     DriverGestaltPurgeResponsePtr = ^DriverGestaltPurgeResponse;
  242.     DriverGestaltPurgeResponse = RECORD
  243.         purgePermission:        UInt16;                                    {  0 = Do not change the state of the driver  }
  244.                                                                         {  3 = Do Close() and DrvrRemove() this driver  }
  245.                                                                         {  but don't deallocate driver code  }
  246.                                                                         {  7 = Do Close(), DrvrRemove(), and DisposePtr()  }
  247.         purgeReserved:            UInt16;
  248.         purgeDriverPointer:        Ptr;                                    {  pointer to the start of the driver block (valid  }
  249.                                                                         {  only of DisposePtr permission is given  }
  250.     END;
  251.  
  252.     DriverGestaltEjectResponsePtr = ^DriverGestaltEjectResponse;
  253.     DriverGestaltEjectResponse = RECORD
  254.         ejectFeatures:            UInt32;                                    {    }
  255.     END;
  256.  
  257. { Flags for Ejection Features field }
  258.  
  259. CONST
  260.     kRestartDontEject            = 0;                            {  Dont Want eject during Restart  }
  261.     kShutDownDontEject            = 1;                            {  Dont Want eject during Shutdown  }
  262.     kRestartDontEject_Mask        = $01;
  263.     kShutDownDontEject_Mask        = $02;
  264.  
  265. {
  266.     The DriverGestaltVMOptionsResponse is returned by a disk driver in response to a
  267.     kdgVMOptions Driver Gestalt request. This allows a disk driver to tell VM a few
  268.     things about a disk drive. For example:
  269.     
  270.     • A drive that should never be in the page fault path should return kAllowVMNoneMask.
  271.       Examples of this are drives that have manual eject buttons that are not disabled by
  272.       software, drives with very slow throughput, or drives that depend on
  273.       a network connection.
  274.     • A drive that should never be written to but is safe for read-only file mapping
  275.       should return kAllowVMReadOnlyMask. Examples of this are WORM drives where each write
  276.       eats write-once space on the disk and CD-ROM drives which are read-only media.
  277.     • A drive that should allow VM to create its main backing store file should return
  278.       kAllowVMReadWriteMask. Examples of this are fast read/write drives that don't allow
  279.       manual eject and don't use a network connection.
  280.     
  281.     A disk driver must look at the ioVRefNum field of the DriverGestaltParam to determine
  282.     what disk drive this call is for. This is a per-drive call, not a per-driver call.
  283.     
  284.     The only three valid responses to kdgVMOptions at this time are kAllowVMNoneMask,
  285.     kAllowVMReadOnlyMask, and kAllowVMReadWriteMask (i.e., setting only kAllowVMWriteBit
  286.     is not valid).
  287.     
  288.     Important: All bits not defined here are reserved and should be set to zero until
  289.     they are defined for a specific purpose.    
  290. }
  291.  
  292. TYPE
  293.     DriverGestaltVMOptionsResponsePtr = ^DriverGestaltVMOptionsResponse;
  294.     DriverGestaltVMOptionsResponse = RECORD
  295.         vmOptions:                UInt32;
  296.     END;
  297.  
  298. { Bits and masks for DriverGestaltVMOptionsResponse.vmOptions field }
  299.  
  300. CONST
  301.     kAllowVMReadBit                = 0;                            {  Allow VM to use this drive for read access  }
  302.     kAllowVMWriteBit            = 1;                            {  Allow VM to use this drive for write access  }
  303.     kAllowVMNoneMask            = 0;
  304.     kAllowVMReadOnlyMask        = $01;
  305.     kAllowVMReadWriteMask        = $03;
  306.  
  307.  
  308. {__________________________________________________________________________________}
  309. { CD-ROM Specific }
  310. { The CDDeviceCharacteristics result is returned in csParam[0] and csParam[1] of a 
  311.    standard CntrlParam parameter block called with csCode kdgGetCDDeviceInfo.
  312. }
  313.  
  314. TYPE
  315.     CDDeviceCharacteristicsPtr = ^CDDeviceCharacteristics;
  316.     CDDeviceCharacteristics = RECORD
  317.         speedMajor:                SInt8;                                    {  High byte of fixed point number containing drive speed  }
  318.         speedMinor:                SInt8;                                    {  Low byte of "" CD 300 == 2.2, CD_SC == 1.0 etc.  }
  319.         cdFeatures:                UInt16;                                    {  Flags field for features and transport type of this CD-ROM  }
  320.     END;
  321.  
  322.  
  323. CONST
  324.     cdFeatureFlagsMask            = $FFFC;                        {  The Flags are in the first 14 bits of the cdFeatures field  }
  325.     cdTransportMask                = $0003;                        {  The transport type is in the last 2 bits of the cdFeatures field  }
  326.  
  327.  
  328. { Flags for CD Features field }
  329.     cdMute                        = 0;                            {  The following flags have the same bit number  }
  330.     cdLeftToChannel                = 1;                            {  as the Audio Mode they represent.  Don't change  }
  331.     cdRightToChannel            = 2;                            {  them without changing dControl.c  }
  332.     cdLeftPlusRight                = 3;                            {  Reserve some space for new audio mixing features (4-7)  }
  333.     cdSCSI_2                    = 8;                            {  Supports SCSI2 CD Command Set  }
  334.     cdStereoVolume                = 9;                            {  Can support two different volumes (1 on each channel)  }
  335.     cdDisconnect                = 10;                            {  Drive supports disconnect/reconnect  }
  336.     cdWriteOnce                    = 11;                            {  Drive is a write/once (CD-R?) type drive  }
  337.     cdMute_Mask                    = $01;
  338.     cdLeftToChannel_Mask        = $02;
  339.     cdRightToChannel_Mask        = $04;
  340.     cdLeftPlusRight_Mask        = $08;
  341.     cdSCSI_2_Mask                = $0100;
  342.     cdStereoVolume_Mask            = $0200;
  343.     cdDisconnect_Mask            = $0400;
  344.     cdWriteOnce_Mask            = $0800;
  345.  
  346. { Transport types }
  347.     cdCaddy                        = 0;                            {  CD_SC,CD_SC_PLUS,CD-300 etc.  }
  348.     cdTray                        = 1;                            {  CD_300_PLUS etc.  }
  349.     cdLid                        = 2;                            {  Power CD - eg no eject mechanism  }
  350.  
  351. {  the following are used by PC Exchange (and houdini) }
  352.  
  353. {  Control Codes }
  354.     kRegisterPartition            = 50;                            {  PCX needs a new Drive (for a non-macintosh partition found on the disk) }
  355.     OLD_REGISTER_PARTITION        = 301;                            {  left in for compatibility with shipping Houdini }
  356.     THE_DRIVE                    = 0;                            {  DrvQElPtr for the partition to register }
  357.     THE_PHYS_START                = 1;                            {  The start of the partition in logical blocks }
  358.     THE_PHYS_SIZE                = 2;                            {  The size of the partition in logical blocks }
  359.     kGetADrive                    = 51;                            {  control call to ask the driver to create a drive }
  360.     OLD_GET_A_DRIVE                = 302;                            {  left in for compatibility with shipping Houdini }
  361.     THE_VAR_QUEL                = 0;                            {  a VAR parameter for the returned DrvQElPtr }
  362.     kProhibitMounting            = 52;                            {  Dont allow mounting of the following drives }
  363.     kOldProhibitMounting        = 2100;                            {  left in for compatibility with shipping Houdini }
  364.     kProhibitDevice                = 0;                            {  CS Param 0 and 1 (partInfoRecPtr) }
  365.     kIsContainerMounted            = 53;
  366.     kOldIsContainerMounted        = 2201;                            {  left in for compatibility with shipping Houdini             }
  367.     kContainerVRef                = 0;                            {  CS Param 0 and 1 (VRefNum) }
  368.     kContainerParID                = 1;                            {  CS Param 2 and 3 (Parent ID) }
  369.     kContainerName                = 2;                            {  CS Param 4 and 5 (File Name) }
  370.     kContainerResponse            = 3;                            {  CS Param 6 and 7 (VAR pointer to short result) }
  371.     kMountVolumeImg                = 54;
  372.     OLD_MOUNT_VOLUME_IMG        = 2000;
  373.     MV_HOST_VREFNUM                = 0;
  374.     MV_HOST_PAR_ID                = 1;
  375.     MV_HOST_NAME                = 2;
  376.     MV_REQ_PERM                    = 3;
  377.  
  378. {  Status Codes }
  379.  
  380.     kGetPartitionStatus            = 50;                            {  what is the status of this partition? }
  381.     kOldGetPartitionStatus        = 2200;                            {  left in for compatibility with shipping Houdini }
  382.     kDeviceToQuery                = 0;                            {  CS Param 0 and 1 (partInfoRecPtr) }
  383.     kDeviceResponse                = 1;                            {  CS Param 2 and 3 (VAR pointer to short result) }
  384.     kGetPartInfo                = 51;                            {  Get a partition info record based on the provided vrefnum }
  385.     kOldGetPartInfo                = 2300;                            {  left in for compatibility with shipping Houdini }
  386.     kPartInfoResponse            = 0;                            {  var parameter (pointer to partInfoRec) CSParam [0-1] }
  387.     kGetContainerAlias            = 52;                            {  Get the alias that describes the file this drive was mounted from. }
  388.     kOldGetContainerAlias        = 2400;                            {  left in for compatibility with shipping Houdini }
  389.     kGetAliasResponse            = 0;                            {     var parameter (pointer to a Handle) CSParam [0-1] }
  390.  
  391. {  the result codes to come from the driver interface  }
  392.  
  393.     DRIVER_NOT_INSTALLED        = -1;
  394.     DRIVER_BUSY                    = -2;
  395.     CANT_MOUNT_WITHIN_THIS_FS    = -3;                            {  can only mount container within residing on HFS volume }
  396.     VOLUME_ALREADY_MOUNTED        = -4;                            {  Already Mounted }
  397.  
  398. {  requisite structures for PCX control and status calls }
  399.  
  400.     kMaxProhibted                = 2;                            {  the max number of volumes the PC can possibly have mounted }
  401.  
  402. {  GestaltSelector for Finding Driver information }
  403.  
  404.     kGetDriverInfo                = 'vdrc';
  405.  
  406.     VerifyCmd                    = 5;
  407.     FormatCmd                    = 6;
  408.     EjectCmd                    = 7;
  409.  
  410. {  Partition information passed back and forth between PCX and the driver }
  411.  
  412. TYPE
  413.     partInfoRecPtr = ^partInfoRec;
  414.     partInfoRec = RECORD
  415.         SCSIID:                    DeviceIdent;                            {  DeviceIdent for the device }
  416.         physPartitionLoc:        UInt32;                                    {  physical block number of beginning of partition }
  417.         partitionNumber:        UInt32;                                    {  the partition number of this partition }
  418.     END;
  419.  
  420.     vPartInfoRecPtr = ^vPartInfoRec;
  421.     vPartInfoRec = RECORD
  422.         VPRTVers:                SInt8;                                    {  Virtual partition version number }
  423.         VPRTType:                SInt8;                                    {  virtual partition type (DOS, HFS, etc) }
  424.         drvrRefNum:                SInt16;                                    {  Driver Reference number of partition driver }
  425.     END;
  426.  
  427. {  Information related to DOS partitions }
  428.  
  429. CONST
  430.     kDOSSigLow                    = $01FE;                        {  offset into boot block for DOS signature }
  431.     kDOSSigHi                    = $01FF;                        {  offset into boot block for DOS signature }
  432.     kDOSSigValLo                = $55;                            {  DOS signature value in low byte }
  433.     kDOSSigValHi                = $AA;                            {  DOS signature value in high byte }
  434.  
  435.  
  436.  
  437. {$ALIGN RESET}
  438. {$POP}
  439.  
  440. {$SETC UsingIncludes := DriverGestaltIncludes}
  441.  
  442. {$ENDC} {__DRIVERGESTALT__}
  443.  
  444. {$IFC NOT UsingIncludes}
  445.  END.
  446. {$ENDC}
  447.